3 FOR J =11 TO 1 STEP-2:POKE53280,J+1:POKE53281,J-1
5 PRINT"[147]"
10 FOR X=1TO39:PRINT"*";:GOSUB60:NEXTX
20 FOR X=1TO23:PRINT"[157]*":GOSUB60:NEXTX
30 FOR X=1TO39:PRINT"[157]*[157]";:GOSUB60:NEXTX
40 FOR X=1TO23:PRINT"[157]*[145]";:GOSUB60:NEXTX
45 NEXTJ
50 GETA$:IFA$=""THEN50
55 POKE53280,6:POKE53281,6:END
60 FORY=1TO100:NEXTY
70 RETURN